﻿Namespace Buchungen

    Public Class BuchungCreator

        Public Event EntryRead(ByVal buchung As Buchung)

        Public Sub New()
        End Sub

        Public Function CreateBuchungen(ByVal locsv As List(Of CSVEintrag)) As List(Of Buchung)
            Dim fis() As System.Reflection.FieldInfo = GetType(Buchung).GetFields()
            Dim lob As New List(Of Buchung)
            Dim btfc As New BtFormaterCreator

            For Each csv As CSVEintrag In locsv
                Dim b As New Buchung

                b.Buchungsdatum = csv.Buchungsdatum
                b.Wertstellungsdatum = csv.Wertstellungsdatum
                b.Kontostand = csv.Kontostand
                b.Betrag = csv.Betrag
                b.Beguenstigter = csv.Beguenstigter
                b.Konto = csv.Kontonummer
                b.Buchungstext = csv.Buchungstext
                b.Verwendungszweck = csv.Verwendungszweck
                b.ImportFile = csv.ImportFile
                b.Status = "importiert"
                RaiseEvent EntryRead(b)

                lob.Add(b)

            Next

            Return lob

        End Function

    End Class

End Namespace